#Comments use hash symbol

#Copy into vector
rawData <- c(55,56,98,100,15,12,33,45,32,67,82,19,25)

#Show min
min(rawData)

#ShowMax
max(rawData)

#Show mean
mean(rawData)

#Show summary
summary(rawData)

#Plot Graph
plot(rawData, main="myGraph", xlab="Time(Seconds)", ylab="Idle", pch=11, type="b", col="black")
abline(h=min(rawData), v=0)
abline(h=max(rawData), v=0)
abline(h=mean(rawData), v=0)
